Option Explicit
'ۭqҲ
Dim myAr As Variant
Private Sub UserForm_Initialize()
    'ոL_Data01
    Dim i As Long
    'w}C
    myAr = Worksheets("L_Data01").Range("B2:I4").Value
    Label2.Caption = ""             'wD
    Label3.Caption = "Xp"
    With TabStrip1
        .Tabs.Add
        For i = 0 To .Tabs.Count - 1
            .Tabs(i).Caption = myAr(i + 1, 1)
        Next
        .Value = 0
        TextBox2.Value = myAr(1, 2)
        TextBox3.Value = myAr(1, 7)
    End With
End Sub

Private Sub TabStrip1_Change()
    With TabStrip1
        TextBox2.Value = myAr(.Value + 1, 2)
        TextBox3.Value = myAr(.Value + 1, 7)
    End With
End Sub

